2-2

Foucault Pendulum

Working from (17) in COMMENTS 3, we set

ω=1;

Orbit[t_,β_]:=Flatten[Transpose[(({{Cos[t β], -Sin[t β]}, {Sin[t β], Cos[t β]}})).(({{Cos[t(Sqrt[(ω^2)+(β^2)])]}, {0}}))]]

Orbit[t,β]

Manipulate[ParametricPlot[Orbit[t,β],{t,0,0.8π/β}], {β,0.01,0.1}]